﻿Imports Microsoft.VisualBasic

Public Class ScreenPermissionsSP
    Inherits DBParentStoredProcedureClass

    Public Operation As New TableField("Operation", Data.SqlDbType.NVarChar)
    Public MenuID As New TableField("MenuID", Data.SqlDbType.Int)
    Public UserID As New TableField("UserID", Data.SqlDbType.Int)

    Sub New()
        MyBase.StoredProcedureName = "ScreenPermissionsSP"
    End Sub

    Public Shadows Function QueryDatabase(ByVal QueryType As SqlQueryType, _
                                 Optional ByVal Operation As String = "", _
                                 Optional ByVal MenuID As String = "", _
                                 Optional ByVal UserID As String = "") As Object
        MyBase.FieldsArrayList = New ArrayList
        Me.Operation.SetValue(Operation, MyBase.FieldsArrayList)
        Me.MenuID.SetValue(MenuID, MyBase.FieldsArrayList)
        Me.UserID.SetValue(UserID, MyBase.FieldsArrayList)

        Return MyBase.QueryDatabase(QueryType)
    End Function

End Class
